<!--#include virtual="/Common/Config.asp" -->
<!--#include virtual="/Common/conn.asp" -->
<!--#include virtual="/2010admin/Check_IsLogin.asp" -->
<!--#include virtual="/Common/Function.asp" -->
<!--#include virtual="/2010admin/Common/Query_List_GetSQL.asp"-->

<%

If Request.ServerVariables ("Request_Method")="POST" Then
	ParentID  = reform("ParentID")
Else
	ParentID  = requery("ParentID")
End If


'==========================================
'**********	Modify  Start  ****************
dim TITLE,DISPFILD,PAGESIZE,SQL,HV
dim AddLabel,addURL,delURL,editURL,detailURL,detailURLsn
TITLE="子菜单查询"
DISPFILD="MenuName<菜单名称,MenuPath<脚本路径,MenuVisibled_S<菜单显示"
PAGESIZE="20"
HV="H"

AddLabel="增加子新菜单"
addURL="Admin_Sub_Menu_Add.asp?ParentID="&ParentID
delURL="Admin_Sub_Menu_Del.asp?ParentID="&ParentID
editURL="Admin_Sub_Menu_Edit.asp?ParentID="&ParentID
detailURLsn=1



sql = "SELECT MenuID,ParentID,MenuName,MenuPath,Menu_Order,"&_
	  "	CASE MenuVisibled "&_
	  " WHEN '1' THEN '显示' " &_
	  " ELSE '不显示' " &_
      " END AS MenuVisibled_S " &_
	  " FROM Admin_Menu WHERE 1=1  "


sql = EqualSql("ParentID",ParentID,sql)


sql = sql & " ORDER BY Menu_Order ASC "
'writebr sql


'**********	Modify  Stop  *****************
'==========================================

If Request.form("previous")="上一页" Then PageNo=request.form("PageNo")-1
If Request.form("next")="下一页" Then PageNo=request.form("PageNo")+1
If Request.form("GotoPageNo")<>"" Then PageNo=request.form("GotoPageNo")
If Request.form("GotoPageNo2")<>"" Then	PageNo=request.form("GotoPageNo2")
%>

<HTML>
<HEAD>
<TITLE><%=Title%></TITLE>
<link href="/2010admin/css/default.css" type="text/css" rel="stylesheet">
<script language="javascript" src="/2010admin/js/function.js"></script>
</HEAD>
<BODY BGCOLOR="#FFFFFF"><br>
<form method="post" name="form">
<TABLE cellSpacing=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width="43%" align=left><FONT size=4><B><%=TITLE%></B></FONT>
	<%if addURL<>"" then%>
	<%=GetSpace(4)%><input type='button' class='inputbutton' value='<%=AddLabel%>' name='add' onClick="window.location.href='<%=addURL%>'">
	<%end if%>	<%=GetSpace(4)%><input type='button' class='inputbutton' value='排序' name='add' onClick="window.location.href='Admin_Sub_Menu_Sort.asp?ParentID=<%=ParentID%>'"><%=GetSpace(4)%><input type='button' class='inputbutton' value='返回主菜单' name='add' onClick="window.location.href='Admin_Menu_Query.asp'">
	</TD>
    <TD width="37%" align=right>&nbsp;
	</TD>
    <TD vAlign=middle width="20%"> &nbsp;</TD>
  </TR>
  </TBODY>
</TABLE>
<HR SIZE=1>
<%
IF NOT Query_List_GetSQL(DISPFILD,SQL,PAGESIZE,HV,delURL,editURL,detailURL,detailURLsn) THEN
	Response.Write "<br><BR><center><font size=2><font color=#ff0000>程序执行错误！请与系统管理员联系！"
END If

Call conn_close()

%>
<INPUT TYPE="hidden" NAME="ParentID" value="<%=ParentID%>">
</FORM>
</BODY>
</HTML>
